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.  SYSTEM/PATCH is designed ta merge one or. more patch clusters “to. 
create a single patch file which may be useg as the input file 


"CARDS" tor SUL» MIL or FGRTRAN. | The program is especially 


designed to be used when compiling standard 61890/81700 programs. 
Instead of a patch filer é pseudo deck may te created. | 
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NAME ee NUMBER 
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The program: 


_ Creates a sirgle patch file from one or more patch clusters. 
Files may be merged from different hardware types. 


Checks sequence numbers to ensure that eacn is either alt 
blanks or all digits. = | | | 


Checks sequence numbers against highest sequence numter 
previously encountered jn the patcn unit. Emits a warning 
if RESEQUENCING or "£4 NO SEQERR"™ is sets otherwise» emits 
ERROR» thus suppressing merging. No sequence error warning 
Wilt be  tssued on blank sequerce cards if a “"## NO 
— BLANK.SEG.WARN™ Card is included. — : ee 


Checks "S VOID" cards to see that the end of the void rarge 
is greater than/or equal ta the highest sequence rumcer 
previously encountered in the patch units including the. 

sequence number of the vOIO card. | | . _— 
Gives a warning if a previous patch is replaced cr deleted. 


Adds = patch identification (marks  tevels version and. 


transaction) to each record,p thus ere ati” $0 character 
records. These remain a permanent part of the record and 


will be printed on the Listing by the. compilers as long‘as 


the record remains in the source AEs 
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Generates an input patch Meenas optionally beginning each 
patch unit or a new page. | | - 


Generates a Listing: of the resultant ieened file. Generates 
a eergey: listing by snecified patch id (CSADOC)S = 


Recognizes special comment cards ("se COMMENT") for patch 

description. purposes. COMMENT may be replaced by a &@ which 

may appear in any column after column CWO. ("$7Z" = “$a 
COMMENT™). | . 7 


Atlows up to 18 characters of special patch identification 
for things tike date or initials. These are printed on tke 
patch Listings and merged tisting but are not trcluded itn 
the resultant patch file. | 4 | 


Prints a heading. 


Generates a pseudo deck» insteac of a patch files if any 
cards are seen with £? in columns 1 and 2. Alt such cards 
(with the $2 replaced by ? olank) are placed tr the pseudo 
deck preceding the patch cards and a ?ENOD is generated after 
the patch cards. He sure the number of pseudG readers is 


greater than 0 CRNLI). The sequence field is blanked out oan 
$2 cards (pseugo control cards). 


Attows a deck with no $# cards for the purpose of Listing 


and checking. #£If no errors occurs a merged fite Cor pseudo 
deck) will be generated with blanks for 3ASc» VERSIQN and 
PATCH I[D.- 
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OPERATING INSTRUCTIONS — 


This program is controttec by cards with "sa" in columns 1 and 2. 
The. Pol towing are WO eoantes2? — 


—$ CBASE € MARK) <digit>.<digit> 

[his cara is for specification of the previous or next release. 
Each patch card gets base information from the tast mark caro 
preceding ite | yes - | - 7 


EXAMPLE? 34 MARK 6e1 


$A VERSION <version id> 

This card is usea to specify different versions between releases. 
It. might be changed with each new source generation. Fach patch 
card gets the version information from tne Last verston card seen 


preceding it. The <version id> may be one or two alphanumeric 
characters. : 


EXAMPLE? $# VERSION A 


$# PATCH <patch id> (<commenter y>} 


Each patch cluster must bce oreceded by pias card. The <patch id> 
is normally the transaction number but may be any alphanumeric 


string up to 6 characters. Additional characters wilt he 


truncated. Periods may ove imbedded in the S-character string 
providing the string begins with ae tletter. The opttonal 


<commentary> is up to 18 characters Cinclucing blanks and soecial 
characters) pea ennnng with the. first ron- blank after Spigiew id>. 


EXAMPLES $# PATCH p00254 7/29/74 LW 


Wy ses wee attra Mise ond mree ie ias pipe na. Seance tmar 
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The PoLtouing eanerole may be used individually or together. 
Their effect is to override the controls currently in use by | 
aystea/Patch and to replace the old text with new text supptliec — 
on the "“OVER® Cates tas | 


“$A OVER C<BASE>> 1 <MARKD) <digit>. cdigit> 
 $# CVER VERSION <version id> 
HOVER PATCH <patch id> {<commentary>) 
EXAMPLES If the Base-Version-Patch id field contains and prints 
vetee aeenee | 


re sind input ecard "S#OVER ee. eae cause the 
following change? : 2 | | 


(.0 F ABCDEF 


“Tha: use of ‘the Foe vouiR controls will stop the printing of that. 
particular control text which has pee negated. oe particular 
tres: as blanked out. _ | | 


($# NO OVER BASE 
$# NO OVER VERSION 
$# NO OVER PATCH 


$# (NOI SEQERR 


Set by default. Causes sequence errors to ve fatal Cin which 
case. termination cccurs prior to merging). ALL sequence errcrs 


; : 


are converted to warnings if &# SEQ-ERR Cor SEQERR) is reset. — 


This includes $VQID cards with the end of range too lew» in which 
case the end of range is treated as blank. | 
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ses SEC.BLANKS | 


‘OS cares” with: blank sequence fields may be eaguenced by Peri 2) 
~~. SEQ@s+BLANKS" around the $SE&Q> —$NO- SEQ cards. If $SEQ is not set» — 


$# SEQ.BLANKS has no effect. If $4 SEQ.-BLANKS is not set»  $SEQ 


cards are. handled as before. If ai noncdoltar card with a | 
_ non- blank sequence field is enccuntered while sequencing blanks» 


an error is given. While $# SEQ.BLANKS is set» all $SEQ and $NO 
SEQ cards are deleted. If either the base or increment is 


- missing the following are used: 
|G) Missing Increent - last used increment or 1000. — 


(2) Missing base - If the $SEQ card has a sequence nu@bers 


that is used. If no sequence numbers have been seens— 
1000 is used. Otherwise the Last sequence number Brus - 
the new increment is used. | | 


an "5" is. apinted to ene left o f the sequence Aueuer on the Liste 
Listing for att newly sequenced cards. —<$# SEQLBLANKS may be set 


and reset anywhere. 


$# NO BLANK«SEQ.WARN 


Warnings and errors may be. suppressed © for cards with blank 


sequence. fields by. including a "$# NO BLANK.SEQ.WARN” card. This 


- is for cosmetic purposes and should be used cautiously. 


— $# (NOT LIST 


Set by default. Causes tistirg of merged file. 


When generating a new sy@bolics | SLIST Nas no ‘affect. To get! a 


listing of the new symbolic, the option "$4 LISTNEW™ Cor 


—LIST.NEW) has- been addeds.” 


| 
| 
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$# {NOI LISTP 


Set by default. Causes Listing of input cards by patch unite. 


Paging Detween patches is suppressed for LISTP. The printer will 


not be opened if att of the followirg conditions prevail: 


1. The first card of the CARCS file is $# NO LISTP ard LISTP 
78 not subsequently turned oan. oo | 3 


2. $# LIST is turned off. | 
3. No other printer output 1S requested.- 


&4e Nc errors or warnings occur. 


$i PAGEP 


This causes each patch cluster to begin on a new page in the 
LISTP Listing. — | : 


$# COMMENT <commertar y> 


These cards are printed or the patch tisting and then discardec. 


$4%Z <commentary> 


The Zz sign may replace the word COMMENT. The % sign may. be in 


any coluan after column 2. 


EXAMPLES $# COMMENT? IMPLEMENTS READ, PRINT AND PUNCE 


$# Zs IMPLEMENTS READ» PRINT ANC PUNCH 


i] 
an 


ee 
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81800/81700 SYSTEM/PATCH 


on INCLUDE, ane name> SL cpacksatse> 


the: syntax for merging files fros Gi ehecent hardware types ioe. 


(Beso ees-2INCLUDES=> efile name> ey ae 
=e 7 | bo | | 1 
[m---C1S Kernen e- >I 
Teteteted fd Sotetetataatetatet a 
b----CARD-o nomen 


Pm" CARDS Sooo A >I 
f=" "READER © Sess 22 >1 
b----CARD.READER“=>1 
The file name may be one or two levels. Quotes are needed only 
if blanks or slashes are required in a file td. Ctherwiser 


blanks and stashes are delimiters. Two tevels of INCLUCE are 


allowed; any number of INCLUDE cards is alloweds. If an INCL 
card has no hardware’ type» the creviously specified type is 


assumed. If none has been specified» OISK is assumed. The 
action of an INCL record is to switch input to the first record 


of the specified file. Upon encountering EOF» input is switched 
pack to the record following the INCL record. If the INCL file 


has 90 character records» it will be assumed to have patch id 


information and the information wilt te retained. 


Pack=nawe may appear on a separate card (see $# PACK below) or on 
an INCLUDE card as part of the file-id CA/B/C). jIf both a & 


PACK card and a pack-naae on the INCLUDE card are presents the 


pack~name on the INCLUDE card takes precedence. 


SH PACK. (<pack id> | SYSTEM) 


If no PACK card has appeared> SYSTEM is assumed. PACK applies 


onty to INCLUDE ee The <pack id> applies until enother PACK 
cara is seen. aa | — , » 4 ae 
‘$8 00C 


This causes a listing. by patch ic of the ner sed file. "54 Dcc™ 
ae reset by default. | ; ,, - 
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SH ONEW 


If the option "$# NEW" is sets the patches wilt be merged inte 4 


file “SOURCE™ C(DEVICE=TAPE» USE.INPUT-BLOCKING) to create a nex 


file "NEWSOURCE™ CDEVICE=TAPE» RECCROS = 99/20). The new source | 


should be exactly as though S30L had created it Cincluding 
resequencing). Alt $ cards are discarded. . 4 . | 


S# END | 


This serves as an end of file for SYSTEM/PATCH sc that extra. 


cards stored behind it are ignored. "3 END™ denotes end-of-file 
whether it is in the CARDS file or in an INCLUDE file. 


: fe: 

2 on 

; se . fe: 
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FILES 
CARDS o «Input Card Fite | 
LINE =  — Printer File : | 
IPF Intermediate Patch File (Disk Random) 

PATCH = Resultant. Merged File (Default Disk) — 

SOURCE . Input for f#NEw 
—  NEWSOURCE ouroe tor SANEW 


NOTES "CARDS" is not closed until ECs Te) nas compile. ceck wilt 
: | walt: until after "PATCK™ is locked. 


RESTRICTIONS 


The totat patch deck may not exceed 16374 patch cards. 


AL« input must be EBCDIC and only ES8CDIC output is generated. 
Each sequence number must be elt blanks or allt digits. 


Only one keyword is reccgnized on a $# Card. 


Compiler control options "SEQ" ana "VOIC™ are recognized but only 
if they are first on the $ card. (Notes  “SEQ* may be prececed 
by "NO" 2). Any other compiler directing option appearirg on the “$ 


_, SEQ" card will produce the following error message? "$-OPTION 
“NOT ‘PERTAINING TO SEQ SHOULD BE GN SEPARATE CARD.” 


SYSTEM/PATCH does not yet catch the case where a patch falls 
within a resequenced range of a previous paren tn one same deck. 
os Until it ooeer resequencer beware.. 7 
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SAMPLE DECKS 


ore a SEIUE = escupo OEcK 


Wn ¢ 


EX SYSTEM/PATCH CA CARDS 


CO BRO/PATCH 
FI SOURCE NAME PATCH/750504 TAPE; 


CATA CARDS 


BASE 5.0 


VERSION XA 


<patch clusters> 


END 


SAMPLE DECK SETUP 


EX SYSTEM/PATCH 


FI PATCH NAME MCPI/PATCH? 
DATA CARDS — 


BASE 4el 
VERSION A 
NO LISTP 


PATCH OPTION 


COMMENT: CONTAINS COMPILER OPTION CARDS 
MERGE 


NO LIST 


PATCH D00154 7/29/74 - CK . 


COMMENT: CORRECTS PROBLEM WITH TAPE ECF. 
<PATCHES> | , 
PATCH DEBUG 


“COMMENTS DEBUGGING ONLY " 10 BE FEMOVED seeunnen 
<P ATCHES> | 7 - : 
END 

COMPILE MCPI/EXP 

oe | CARDS NAME MCPI/PATCH DISK; 
FL SOURCE NAME HCPI/SOURCE TAPES 
END 
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$# INCLUDE <file name> f <pack/Mf/f> 2-5 


SA LISTNEW 253 


8 NEW 2-6 a 
S$ NO BLANK.SEQ.WARN = 2=2 


$# NO OVER BASE 2-2 
$# NO OVER PATCH 2-2 
$# NO OVER VERSION 2-2 


BA CVER (C<BASE>» 1 <MARK>) <digit>. <digit> 2-2 


$# PAGEP 2-4 


$3@ PATCH <patch id> i<commentary>] 


$# SEQ.-BLANKS 2-3 


$# VERSION <version id> 2-1 


$#Z <coamentary> 2~4 
FUNCTIONS tL-1 | 
INTRODUCTION 1-1 
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SAMPLE DECK. SETUP gel 


SAMPLE DECK SETUP = PSEUDC DECK 
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 $€ GVER PATCH <patch id> (€<commentary>] 2-2 
$# OVER VERSION <version id> 2>2 
$# PACK (<pack id> 1 SYSTEM) 2*5 
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